home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / xes.lha / XES / S / aspell.xrc < prev    next >
Text File  |  1995-08-14  |  1KB  |  19 lines
  1. # $VER: aspell.xrc 1.0 (14 Aug 1995)
  2. loadgtbproject as XES:GUI/ASpell.gui
  3.  
  4. setmacro gtb-aspell 0 (connectgtbgadget as as words Unfound droplist LWords deflist LWords connectgtbgadget as as lw LWords setgtbgadget as as words 0 set wnx 0 opengtbwindow as as)
  5.  
  6. setmacro as-as-words 1 (set wnx \$arg1)
  7. setmacro as-as-lw 1 (set lnx \$arg1)
  8. setmacro as-as-next 0 (smv w (Unfound/#\$wnx/*Name*) eval (wfind \$(\$w)))
  9. setmacro as-as-prev 0 (smv w (Unfound/#\$wnx/*Name*) eval (wprev \$(\$w)))
  10. setmacro as-as-save 0 (rx2 SaveList Unfound T:temp execute (type >>t:temp \$UDict) execute (AlphaSpell >\$UDict S t:temp) droplist LWords deflist LWords connectgtbgadget as as lw LWords)
  11. setmacro as-as-learn 0 (smv w (Unfound/#\$wnx/*Name*) eval (addnode LWords head \$(\$w) \$wnx) remnode Unfound idx=\$wnx)
  12. setmacro as-as-remove 0 (smv w (LWords/#\$lnx/*Name*) eval (addnode Unfound head \$(\$w) \$lnx) remnode LWords idx=\$lnx)
  13.  
  14. setmacro gtb-guesses 0 (source XES:S/Guesses.xrc connectgtbgadget gs gs guesses Guesses opengtbwindow gs gs)
  15.  
  16. setmacro as-as-guess 0 (smv w (Unfound/#\$wnx/*Name*) eval (execute (AlphaSpell >T:temp g \$(\$w) \$gf \$Dict \$UDict)) rx2 XES:Rexx/LoadList Guesses T:temp gtb-guesses)
  17. setmacro spell-check 0 (writeto t:temp title (Spell Checking ...) execute (AlphaSpell >t:list S t:temp \$Dict \$UDict) droplist Unfound rx2 LoadList Unfound t:list gtb-aspell)
  18.  
  19.